home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #1 / Ham Radio 2000.iso / ham2000 / packet / p_aa4re / bb212src / bbmdata.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-02-16  |  1.9 KB  |  53 lines
  1. (*===========================================================================*)
  2. (* Message Control Blocks and data                                           *)
  3. (*                                                                           *)
  4. (*   Copyright 1988, 1989, 1991 by H. Roy Engehausen.  All rights reserved.  *)
  5. (*                                                                           *)
  6. (*===========================================================================*)
  7.  
  8. UNIT BBMDATA;
  9.  
  10.   INTERFACE
  11.  
  12.     USES bbdummy;
  13.  
  14.     {$I BBMEQU.PAS}
  15.  
  16.     (*-----------------------------------------------------------------------*)
  17.     (* Queue element - These make up the message queue                       *)
  18.     (*-----------------------------------------------------------------------*)
  19.  
  20.     TYPE
  21.  
  22.          qe_ptr = ^qe;
  23.  
  24.          qe = RECORD
  25.                  qe_next     : qe_ptr;      (* Pointer to next QE in chain       *)
  26.                  qe_file_type: BOOLEAN;     (* Is this a file?                   *)
  27.                  qe_data     : STRING;      (* Data string                       *)
  28.                END;
  29.  
  30.     CONST
  31.          qe_overhead = 6;                   (* Overhead bytes excpt for act data *)
  32.  
  33.     (*-----------------------------------------------------------------------*)
  34.     (* Message array                                                         *)
  35.     (*-----------------------------------------------------------------------*)
  36.  
  37.     TYPE
  38.          mess_list_ptr = ^mess_list;
  39.          mess_list     = RECORD
  40.                            mess_next  : mess_list_ptr;
  41.                            mess_this  : qe_ptr;
  42.                            mess_off   : LONGINT;
  43.                            mess_lang  : BYTE;
  44.                            mess_class : user_class_type
  45.                          END;
  46.  
  47.     VAR
  48.       message_array : ARRAY[1..max_message] OF mess_list_ptr;
  49.  
  50.   IMPLEMENTATION
  51.  
  52. END.
  53.